﻿
'Copyright 2010 Brian L. Crawford

'Licensed under the Apache License, Version 2.0 (the "License");
'you may not use this file except in compliance with the License.
'You may obtain a copy of the License at

'    http://www.apache.org/licenses/LICENSE-2.0

'Unless required by applicable law or agreed to in writing, software
'distributed under the License is distributed on an "AS IS" BASIS,
'WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
'See the License for the specific language governing permissions and
'limitations under the License.

'This software uses Microsoft .Net framework used with permission from      
'Microsoft. Microsoft, .Net Framework, Visual Studio, Visual Basic, Visual C++ 
'remain the trademark and copyright of Microsoft and are subject to their 
'individual licenses.

Public Class classListboxObject
    Private myDisplayname As String
    Private myObject As Object

    Public Sub New(ByVal strDisplayname As String, ByVal objObject As Object)
        Me.myDisplayname = strDisplayname
        Me.myObject = objObject
    End Sub

    Public Sub UpdateDisplayName(ByVal strDisplayname As String)
        Me.myDisplayname = strDisplayname

    End Sub

    Public Sub UpdateObjectRef(ByVal objObject As Object)
        Me.myObject = objObject

    End Sub

    Public ReadOnly Property DisplayName() As String
        Get
            Return myDisplayname
        End Get
    End Property

    Public ReadOnly Property ListboxObject() As Object
        Get
            Return myObject
        End Get
    End Property
End Class
